home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / virtltxt / search.frm < prev    next >
Text File  |  1994-01-20  |  4KB  |  141 lines
  1. VERSION 2.00
  2. Begin Form Search 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Virtual Text - Search"
  5.    ClientHeight    =   2415
  6.    ClientLeft      =   1620
  7.    ClientTop       =   2550
  8.    ClientWidth     =   6375
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   2790
  12.    Left            =   1575
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   540
  17.    ScaleWidth      =   540
  18.    Top             =   2220
  19.    Width           =   6465
  20.    Begin CommandButton btnOkay 
  21.       Caption         =   "OK"
  22.       Default         =   -1  'True
  23.       Height          =   375
  24.       Left            =   4995
  25.       TabIndex        =   2
  26.       Top             =   315
  27.       Width           =   1230
  28.    End
  29.    Begin CommandButton btnCancel 
  30.       Cancel          =   -1  'True
  31.       Caption         =   "Cancel"
  32.       Height          =   390
  33.       Left            =   4995
  34.       TabIndex        =   4
  35.       Top             =   855
  36.       Width           =   1245
  37.    End
  38.    Begin SSPanel Panel3D1 
  39.       Alignment       =   1  'Left Justify - MIDDLE
  40.       BevelInner      =   1  'Inset
  41.       BevelOuter      =   0  'None
  42.       BorderWidth     =   2
  43.       FloodShowPct    =   0   'False
  44.       Height          =   2130
  45.       Left            =   165
  46.       TabIndex        =   0
  47.       Top             =   90
  48.       Width           =   4605
  49.       Begin SSCheck Check3D2 
  50.          Height          =   195
  51.          Left            =   330
  52.          TabIndex        =   6
  53.          TabStop         =   0   'False
  54.          Top             =   1755
  55.          Width           =   210
  56.       End
  57.       Begin SSCheck Check3D1 
  58.          Height          =   195
  59.          Left            =   330
  60.          TabIndex        =   5
  61.          TabStop         =   0   'False
  62.          Top             =   1410
  63.          Width           =   210
  64.       End
  65.       Begin TextBox Text1 
  66.          BackColor       =   &H00FFFFFF&
  67.          Height          =   330
  68.          Left            =   330
  69.          TabIndex        =   1
  70.          Top             =   960
  71.          Width           =   3400
  72.       End
  73.       Begin Label CaseSensitive 
  74.          AutoSize        =   -1  'True
  75.          Caption         =   "Case Sensitive"
  76.          Height          =   195
  77.          Left            =   675
  78.          TabIndex        =   8
  79.          Top             =   1755
  80.          Width           =   1275
  81.       End
  82.       Begin Label FromTop 
  83.          AutoSize        =   -1  'True
  84.          Caption         =   "From Top"
  85.          Height          =   195
  86.          Left            =   690
  87.          TabIndex        =   7
  88.          Top             =   1410
  89.          Width           =   810
  90.       End
  91.       Begin Label lblTo 
  92.          AutoSize        =   -1  'True
  93.          BackColor       =   &H00C0C0C0&
  94.          Height          =   195
  95.          Left            =   300
  96.          TabIndex        =   3
  97.          Top             =   345
  98.          Width           =   75
  99.       End
  100.    End
  101. End
  102. 'SEARCH.FRM: VBC Version
  103.  
  104.  
  105. Sub btnCancel_Click ()
  106.  
  107. FindStr = ""
  108.  
  109. Unload Me
  110.  
  111. End Sub
  112.  
  113. Sub btnOkay_Click ()
  114.  
  115. If Check3D1.Value = True Then
  116.     FromTopFlag = True
  117. Else
  118.     FromTopFlag = False
  119. End If
  120.  
  121. If Check3D2.Value = True Then
  122.     CaseSensitiveFlag = True
  123. Else
  124.     CaseSensitiveFlag = False
  125. End If
  126.  
  127. FindStr = Text1.Text
  128.  
  129. Unload Search
  130.  
  131. End Sub
  132.  
  133. Sub Form_Load ()
  134.  
  135. ' Center the Form
  136. Me.Left = (Screen.Width - Me.Width) / 2
  137. Me.Top = (Screen.Height - Me.Height) / 3
  138.  
  139. End Sub
  140.  
  141.